set ns [new Simulator]


# Abre o arquivo q o NAM  ultilizara
set nf [open out.nam w]
$ns namtrace-all $nf

#Rotina em que o arquivo de simulacao sera criado e executado
proc finish {} {
        global ns nf
        $ns flush-trace
        close $nf
        exec nam out.nam &
        exit 0
}


# Criação dos nós
set numNode 20
for {set i 0} {$i < $numNode} {incr i} {
set n($i) [$ns node]
}
# Criação dos enlaces
for {set i 0} {$i < $numNode} {incr i} {
for {set j [expr ($i + 1)]} {$j < $numNode} {incr j} {
$ns duplex-link $n($i) $n($j) 1Mb 10ms DropTail
}
}


